home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / bix02.arc / BARS.PAS next >
Pascal/Delphi Source File  |  1986-08-04  |  1KB  |  29 lines
  1. {to remove spurious BARS when scrolling on HiRes screen}
  2. Program ScrollTest;
  3. Var   Ch : Char;
  4. Begin
  5.   HiRes;   HiResColor (Green);   Gotoxy (1, 25);
  6.   Writeln ('This line will cause scrolling...');
  7.   Writeln ('This line will cause scrolling...');  {see the vertical bars}
  8.   Writeln ('This line will cause scrolling...');
  9.   Writeln ('This line will cause scrolling...');
  10.   Writeln ('(vertical bars = attribute byte used as fill char)' );
  11.   Read (Kbd, Ch);
  12.   HiResColor (Yellow);
  13.   TEXTCOLOR(0); TEXTBACKGROUND(0);
  14.   Writeln ('This line will cause scrolling...');
  15.   Writeln ('This line will cause scrolling...');  {no vertical bars}
  16.   Writeln ('This line will cause scrolling...');
  17.   Writeln ('This line will cause scrolling...');
  18.   Writeln ('This line will cause scrolling...');
  19.   Writeln ('This line will cause scrolling...');
  20.   Writeln ('(attribute byte of 00 eliminates vertical bars)');
  21.   Writeln ('(but, as long as the beer''s good, who cares?) ');
  22.   Read (Kbd, Ch);
  23.   TextMode (C80);
  24.   TextColor (LightGray);
  25.   Port [$03D9] := Blue;    {border}
  26.   TextBackground (Blue);
  27.   ClrScr;
  28.   End.
  29.